10 TEXT : HOME : PRINT "CREATE EXEC FILE TO TRANSFER MACHINE LANGUAGE ROUTINE TO ANOTHER BASIC PROGRAM. WHICH IN TURN WILL POKE THAT ROUTINE WHEN THAT BASIC PROGRAM IS RUN"
15 PRINT "<CTRL-D>NOMONI,C,O"
20 PRINT : PRINT "TO USE THIS PROGRAM, BLOAD THE BINARY PROGRAM THAT YOU WANT TRANSFERED.": PRINT : INPUT "WHAT IS THE DECIMAL STARTING ADDRESS OF THAT PROGRAM ? ";SA
30 PRINT : INPUT "WHAT IS THE DECIMAL LENGTH OF THAT PROGRAM ? ";LE
40 PRINT : INPUT "WHAT LINE NUMBER DO YOU WANT THE POKES TO START AT IN THE BASIC PROGRAM ? ";LINENUMBER
50 PRINT "<CTRL-D>OPEN MACH.POKE,V"
60 PRINT "<CTRL-D>DELETE MACH.POKE"
70 PRINT "<CTRL-D>OPEN MACH.POKE"
80 PRINT "<CTRL-D>WRITE MACH.POKE"
90 FOR PLACE = SA TO (SA +(LE -1))
95 COUNTER = COUNTER +1
100 IF COUNTER = 10 THEN COUNTER = 1
110 IF COUNTER < >1 THEN 120
111 PRINT
112 PRINT LINENUMBER;
113 LINENUMBER = LINENUMBER +1
120 PRINT " POKE ";PLACE;","; PEEK(PLACE);" :";
130 NEXT PLACE
135 PRINT
140 PRINT "<CTRL-D>CLOSE MACH.POKE"
145 HOME : PRINT "NOW LOAD THE PROGRAM YOU WANT TO INSERT THE POKES INTO AND THEN EXEC THE FILE NAMED MACH.POKE"
